Celestin Apprentice 7/Apprentice-Release7.iso/Environments/Clean 1.2.4/MacInterface/desk.icl

Modula Implementation | 1996-02-22 | 502 b | 20 lines | [TEXT/3PRM]

implementation module desk;

import mac_types;

SystemTask :: !Toolbox -> Toolbox;
SystemTask t = code (t=U)(z=Z){
    instruction 0xA9B4
};

OpenDeskAcc :: !{#Char} !Toolbox -> Toolbox;
OpenDeskAcc theAcc t = code (theAcc=R2S,t=U)(z=I2z){
    instruction 0xA9B6
};

SystemClick :: !(!Int,!Int,!Int,!Int,!Int,!Int) !WindowPtr !Toolbox -> Toolbox;
SystemClick (what,message,when,h,v,modifiers) theWindow t
= code (modifiers=W,h=W,v=W,when=L,message=L,what=W,theWindow=O0L,t=U)(z=I16Z){
    instruction 0xA9B3
};